﻿Public Class TextBoxTarea

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ctrl As Control
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = ""
                ctrl.Enabled = False
            End If
        Next
    End Sub

    Private Sub TextBoxTarea_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label1.Text = "Elaborar una forma Windows con tres cajas de texto y un botón. " & vbCrLf & _
               "Al dar clic sobre el botón se debe limpiar el contenido de las tres cajas de texto y" & vbCrLf & _
               "deshabilitar la entrada de texto en las cajas."
    End Sub
End Class